home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / comm2 / sauginfo.lha / SaugInfo_Install / Install_KurtSaug < prev    next >
Text File  |  1995-12-11  |  3KB  |  123 lines
  1. (user 2)
  2.  
  3. (set result
  4.   (askbool
  5.     (default 1)
  6.     (prompt "\n\nWillkommen bei der KurtSaug Installation\nMit diesem Tool ist es möglich Downloads in bestimmten Brettern zu Potokollieren.\nDas Tool ist sowohl Online,\n als auch über eine Gui zu bedienen.\nDiese Installscript erledigt fast die gesammte Installationsarbeit.")
  7.     (help " ")
  8.     (choices "Installieren" "Abbrechen")
  9.   )
  10. )
  11.  
  12. (set result (if result 0 1))
  13.  
  14. (if result
  15.   (
  16.     (abort "\n\n\n\nDenn eben Nicht ;-)))")
  17.   ) 
  18. )
  19.  
  20. (makedir "BBS:Externe/KurtSaug"
  21.     (prompt "\n\n\n\nErzeuge das Verzeichnis \"BBS:Externe/KurtSaug\"")
  22.     (help @makedir-help)
  23.     (infos)
  24. )
  25.  
  26. (tooltype 
  27.     (dest "BBS:Externe/KurtSaug")
  28.     (noposition)
  29. )
  30.  
  31. (makedir "BBS:Externe/KurtSaug/Listen"
  32.     (prompt "\n\n\n\nErzeuge das Verzeichnis \"BBS:Externe/KurtSaug/Listen\"")
  33.     (help @makedir-help)
  34.     (infos)
  35. )
  36.  
  37. (tooltype 
  38.     (dest "BBS:Externe/KurtSaug/Listen")
  39.     (noposition)
  40. )
  41.  
  42. (copyfiles
  43.     (prompt "Kopiere KurtSaug-Onlineprogramm.")
  44.     (help @copyfiles-help)
  45.     (source "KurtSaug/SaugInfo")
  46.     (dest "BBS:Externe/KurtSaug")
  47.     (files)
  48. )
  49. (copyfiles
  50.     (prompt "Kopiere SaugInfo.Doc")
  51.     (help @copyfiles-help)
  52.     (source "KurtSaug/SaugInfo.doc")
  53.     (dest "BBS:Externe/KurtSaug")
  54.     (files)
  55. )
  56.  
  57. (set @default-dest
  58.     (askdir
  59.         (prompt "Wo soll das KurtSaug-Setupprogramm installiert werden ?")
  60.         (help "In das von Ihnen gewählte Verzeichnis wird das KurtSaug-Setupprogramm kopiert. Da Sie das Programm öfter brauchen werden sollten Sie es leicht erreichbar installieren.")
  61.         (default "BBS:Externe/KurtSaug")
  62.     )
  63. )
  64.  
  65. (copyfiles
  66.     (prompt "Kopiere KurtSaug-Setupprogramm.")
  67.     (help @copyfiles-help)
  68.     (source "KurtSaug/SaugInfoSetup")
  69.     (dest @default-dest)
  70.     (infos)
  71.     (files)
  72. )
  73.  
  74. (set result
  75.   (askbool
  76.     (default 1)
  77.     (prompt "\n\n\nSoll das Tool SaugInfo automatisch in Ihrem Doorsetup installiert werden ?")
  78.     (help "Dieser Abschitt nutzt das Tool 'AmBoS_DoorInstall' um Tool SaugInfo unter AmBoS zu installieren. Auf diese weise ersparen Sie sich das Nachlesen der korrekten Parameter.")
  79.     (choices "Ja" "Nein")
  80.   )
  81. )
  82.  
  83.  
  84. (if result
  85.   (
  86.     (run "AmBoS_DoorInstall KurtSaug.ADI"
  87.       (prompt "Running 'AmBoS_DoorInstall'")
  88.     )
  89.     (set result
  90.       (askbool
  91.         (default 1)
  92.         (prompt "\n\n\nSoll das Tool SaugInfo in Ihre NachDownload.Bat eingebunden werden ?")
  93.         (help "Die Zeile 'Execute SaugInfo' wird am Ende Ihrer NachDownload.Bat eingefühgt.")
  94.         (choices "Ja" "Nein")
  95.       )
  96.     )
  97.     (if result
  98.       (
  99.         (if(exists "BBS:Batchdateien/NachDownload.Bat")
  100.           (
  101.             (rename "BBS:Batchdateien/NachDownload.Bat" "BBS:Batchdateien/NachDownload.BAK")
  102.             (textfile
  103.               (prompt "Ergänze NachDownload.Bat")
  104.               (dest "BBS:Batchdateien/NachDownload.Bat")
  105.               (include "BBS:Batchdateien/NachDownload.BAK")
  106.               (append "\n;BEGIN SaugInfo\nExecute SaugInfo\n;End SaugInfo\n")
  107.              )
  108.           )
  109.           (
  110.             (textfile
  111.               (prompt "Ergänze NachDownload.Bat")
  112.               (dest "BBS:Batchdateien/NachDownload.Bat")
  113.               (append "\n;BEGIN SaugInfo\nExecute SaugInfo\n;End SaugInfo\n")
  114.              )
  115.           )
  116.         )
  117.       )
  118.     )
  119.   )
  120. )
  121.  
  122.  
  123.